home *** CD-ROM | disk | FTP | other *** search
/ Informática Multimedia 1995 April / Informatica Multimedia CD - Epimundo.iso / DOS / FILE_CHG / AWK.ZIP / ENARC.AWK < prev    next >
Encoding:
AWK Script  |  1988-08-16  |  167 b   |  8 lines
  1. BEGIN { arcfile = ARGV[1]; delete ARGV[1] }
  2. FILENAME != filename {
  3.     print ("-ARCHIVE-", FILENAME) >arcfile
  4.     print filename = FILENAME
  5. }
  6. {print >arcfile}
  7.  
  8.